home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / thor12.zip / THOR.LHA / rexx / getbbslist.thor < prev    next >
Text File  |  1994-03-03  |  629b  |  36 lines
  1. /*
  2. **  getbbslist.thor - demonstrates the GETBBSLIST function
  3. **
  4. **    Will return 10 if THOR was not able to optain the bbs list, which is
  5. **    highly unlikely.  Returns 0 on success.
  6. **
  7. **    Template:
  8. **
  9. **    STEM/A
  10. **
  11. **    STEM is the stem variable THOR will but the result into, and it must be
  12. **    supplied or this command will fail.  The stem variable must be in 
  13. **    uppercase.
  14. **    THOR will return the number of BBSes found in the list in the stem 
  15. **    variable <stem>.COUNT.
  16. **
  17. */
  18.  
  19. address "THOR.01"
  20.  
  21. GETBBSLIST stem BBSLIST
  22.  
  23. if(rc ~= 0) then exit
  24.  
  25. i = BBSLIST.COUNT
  26.  
  27. n = 1
  28.  
  29. DO while i > 0 & n <= i
  30.     say BBSLIST.n
  31.     n = n + 1
  32. END
  33.  
  34. exit
  35.  
  36.